home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d17 / epsonutl.arc / EPSONUTL.BAS next >
BASIC Source File  |  1985-10-23  |  2KB  |  61 lines
  1. 10 KEY OFF:CLS
  2. 20 SCREEN 0
  3. 30 WIDTH 40
  4. 40 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  5. 50 PRINT"░┌───────────────────────────────────┐░"
  6. 60 PRINT"░│                                   │░"
  7. 70 PRINT"░│            7037-A.BAS             │░"
  8. 80 PRINT"░│      EPSON PRINTER OPTIONS        │░"
  9. 90 PRINT"░│                                   │░"
  10. 100 PRINT"░│                                   │░"
  11. 110 PRINT"░│ BROUGHT TO YOU BY THE MEMBERS OF  │░"
  12. 120 PRINT"░│      ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄      │░"
  13. 130 PRINT"░│        █   █   █ █     █   █      │░"
  14. 140 PRINT"░│        █   █▄▄▄█ █     █   █      │░"
  15. 150 PRINT"░│        █   █     █     █   █      │░"
  16. 160 PRINT"░│      ▄▄█▄▄ █     █▄▄▄▄ █▄▄▄█      │░"
  17. 170 PRINT"░│                                   │░"
  18. 180 PRINT"░│      International PC Owners      │░"
  19. 190 PRINT"░│                                   │░"
  20. 200 PRINT"░│P.O. Box 10426, Pittsburgh PA 15234│░"
  21. 210 PRINT"░│                                   │░"
  22. 220 PRINT"░└───────────────────────────────────┘░"
  23. 230 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  24. 240 PRINT
  25. 250 PRINT "       PRESS ANY KEY TO CONTINUE
  26. 260 A$=INKEY$: IF A$="" THEN 260
  27. 270 WIDTH 80
  28. 280 CLS
  29. 1000 CLS
  30. 1010 PRINT"IBM/EPSON PRINTER OPTION MENU"
  31. 1020 PRINT:PRINT"Choose from the following options:"
  32. 1030 PRINT
  33. 1040 PRINT"0)END PROGRAM
  34. 1050 PRINT"1)REGULAR CHARACTERS(default)
  35. 1060 PRINT"2)COMPRESSED CHARACTERS
  36. 1070 PRINT"3)REGULAR MODE(default)
  37. 1080 PRINT"4)EMPHASIZED MODE-REGULAR CHARACTERS ONLY"
  38. 1090 PRINT"5)DOUBLE-STRIKE MODE"
  39. 1100 PRINT"6)EMPHASIZED DOUBLE-STRIKE MODE"
  40. 1110 PRINT"7)NORMAL LINE SPACING (DEFAULT)"
  41. 1120 PRINT"8)COMPRESSED LINE SPACING"
  42. 1130 PRINT"9)SILENCE PAPER-OUT BUZZER"
  43. 1140 PRINT
  44. 1150 INPUT"WHICH OPTION DO YOU WISH?";ANS
  45. 1160 IF ANS<0 OR ANS>9 THEN BEEP:GOTO 1150
  46. 1170 IF ANS=0 THEN 1310
  47. 1180 ON ANS GOSUB 1220,1230,1240,1250,1260,1270,1280,1290,1300
  48. 1190 PRINT"DONE..."
  49. 1200 FOR DELAY=1 TO 1000:NEXT
  50. 1210 GOTO 1000
  51. 1220 LPRINT CHR$(18);:RETURN
  52. 1230 LPRINT CHR$(15);:RETURN
  53. 1240 LPRINT CHR$(27);"F";CHR$(27);"H";:RETURN
  54. 1250 LPRINT CHR$(27);"E";:RETURN
  55. 1260 LPRINT CHR$(27);"G";:RETURN
  56. 1270 LPRINT CHR$(27);"E";CHR$(27);"G";:RETURN
  57. 1280 LPRINT CHR$(27);"2";:RETURN
  58. 1290 LPRINT CHR$(27);"0";:RETURN
  59. 1300 LPRINT CHR$(27);"8";:RETURN
  60. 1310 END
  61. );"G";: